COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{ Main program part of AL.  There's not much to it! }
C00004 ENDMK
C⊗;
{ Main program part of AL.  There's not much to it! }

procedure detach; 	external;
procedure initAlloc; 	external;			(* from ALLOC.PAS *)
procedure initEditor; 	external;			(* from EDIT.PAS *)
procedure edit; 	external;			(* From EDIT *)
procedure initWorld; 	external;			(* from INTERP.PAS *)
procedure consDef; 	external;			(* From Interp.pas *)

	(* From the EINITn modules:  Editor initialization routines *)
procedure initReswords;						external;
procedure init1Idents;						external;
procedure init2Idents;						external;

	(* From EAUX3A - To open talk box *)
procedure openTalk; 						external;


begin
detach;			(* release tty *)
initAlloc;		(* initialize dynamic storage allocator *)
consDef;		(* define constants - needed by parser *)
initEditor;		(* ditto for the Editor *)
 initReswords;		(* This used to be in initEditor *)
 init1Idents;		(* This is split into 2 parts *)
 init2Idents;
initWorld;		(* get the Interpreter ready too *)
openTalk;		(* Open the damn talking box *)

Edit;			(* Edit, parse, interpret, etc.  Exit upon <ctrl>E *)

writeln; writeln('See you around!'); writeln;
end.